home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / mebbs / mn_keirsey.lha / MN_Keirsey / keirsey.readme < prev    next >
Text File  |  1994-11-22  |  5KB  |  217 lines
  1. The ESC[  has been replaced in this test with ^[ for stability and readability.
  2.  
  3. ^[37m^
  4. The source for this program was obtained from Jan Wolter who can be
  5. reached at janc@m-net.ann-arbor.mi.us.  Thanks Jan!
  6.  
  7. ------------------
  8.  
  9. INSTALLATION:
  10.  
  11. Create a directory in which Keirsey will reside - In your Doors: assignment.
  12.  
  13. ie.     Doors:Keirsey
  14.  
  15. Copy all the files into that directory.
  16.  
  17. Edit the doors.dat file accordingly.
  18.  
  19. OR
  20.  
  21. Any of your menus like the sample menu entry below:
  22.  
  23. ----cut here-------
  24. Option 'K':                       ;Keirsey's Personality Test
  25.         Function RunDoor DOORS:KEIRSEY/kEIRSEY
  26.         end
  27. ----cut here-------
  28.  
  29. OR
  30.  
  31. You can use the ability of running doors from within ShowFile displays.  I
  32. have included the way I call this door for your perusal.
  33.  
  34. I created a directory in Doors called SHOWFILES.  Then in my
  35. menus for this doors area I have as follows:
  36. ++++++++++
  37.  
  38. Option 'K':
  39.         Minaccess 3
  40.         Function showfile doors:showfiles/Option9-k clear
  41.         end
  42.  
  43. +++++++++
  44.  
  45. In my SHOWFILES directory I have many files all called option##-key.txt
  46. the ## is the number of the menu and the key is the keystroke that you
  47. want to use.  Of'coarse they can also be .gr1 files if you also have a .txt
  48. Doing it this way I can change things that a menu will call without having to
  49. recompile the menus.
  50.  
  51. My Option9-k.txt reads as follows:
  52.  
  53. +++++++++++++
  54.  
  55. ^[J^[5H
  56.      The Keirsey personality test is identical to the one given by many
  57. large companies throughout the country.  Uses for the info that it provides
  58. you after the test must be far ranging.  This info at the worst is just
  59. plain interesting, BUT one thing that this test is very good at is telling
  60. if you and a potential spouse are a good pair or not.  The comparison
  61. suprises a lot of people.
  62.  
  63. When you are done reading...  ~vc
  64. ^[H^[J
  65. ~v!DOOR/doors:keirsey/mnkeirsey#
  66. ^[H^[J^[10H
  67. that was interesting wasn't it.  ~vc
  68.  
  69. ~v!REXX/doors:showfiles/exit_normal#
  70.  
  71. ++++++++++++
  72.  
  73. My exit_normal.rexx reads as follows:
  74.  
  75. +++++++++++
  76. /* An Exit_normal by Ed Kolar M3004   */
  77.  
  78. SIGNAL ON SYNTAX
  79. SIGNAL ON IOERR
  80. signal on ERROR
  81. parse arg LineNumber
  82. options results
  83. DoorName = "exit_normal"
  84. if( ~show( 'l', "mebbsarexx.library" ) )then do
  85.    if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
  86.       say "Could not open library"
  87.       exit 10
  88.    end
  89. end
  90.  
  91. reps = 1  /* for OUTPUTTHENDELAY  */
  92.  trace A
  93.  
  94. call getvar Doorname,LineNumber,1
  95. username=result;say username
  96. trace off
  97. call getvar DoorName,LineNumber,9
  98. width=result
  99. call getvar DoorName,LineNumber,8
  100. gfx=result
  101. IF gfx ~= "0" THEN DO
  102.    black = '^[30m'
  103.    yellowback = '^[43m'
  104.    cyn = '^[36m'
  105.    bold = '^[1m'
  106.    normal = '^[0;37m'
  107.    cls = '0C'x||'^[2J'
  108. END
  109. ELSE DO
  110.    black = ''
  111.    red = '' ;
  112.    grn = '' ;
  113.    yellowback = ''
  114.    cyn = ''
  115.    bold = ''
  116.    normal = ''
  117.    cls = '0C'x
  118. END
  119. call check
  120. Exit_Normal:
  121. if width <79 then signal exit_normal40
  122. string = cls;call output;call blank;call blank;call blank;call blank
  123. string = "         "yellowback||black||bold" Now returning you to that Wonderful Chalkboard I & II BBS "normal||cyn;call output
  124. address command 'wait 2'
  125. address
  126.  
  127. call Exit_Door DoorName,LineNumber
  128. exit 0
  129.  
  130. Exit_Normal40:
  131. call blank;call blank;call blank;call blank;call blank
  132. string = normal"  "yellowback||black||bold"  Now returning you to that wonderful ";call output
  133. string = normal"  "yellowback||black||bold"        Chalkboard I & II BBS         "normal||cyn;call output
  134. address command 'wait 2'
  135. address
  136.  
  137. call Exit_Door DoorName,LineNumber
  138. exit 0
  139.  
  140. OUTPUT:
  141.  
  142. call message doorname,linenumber,string,1
  143. return
  144.  
  145. OUTPUTTHENDELAY:
  146. arg reps
  147. call message doorname,linenumber,string,1
  148. do x = 1 to reps
  149. address command "wait 1"
  150. address
  151. end
  152. reps = 1
  153. return
  154.  
  155. BLANK:
  156.  
  157. blnk = " "
  158. call message doorname,linenumber,blnk,1
  159. return
  160.  
  161. Carrier:
  162.  
  163. call CDetect doorname,linenumber
  164. cd=result
  165. return
  166.  
  167. drophim:
  168.  
  169. call HangUp DoorName,LineNumber
  170. exit 0
  171.  
  172. CHECK:      /* check for lost carrier or spaced-out player */
  173.  
  174. call carrier
  175. if cd = "No carrier!" then signal drophim
  176. return
  177.  
  178.  
  179. IOERR:
  180.     err_line = SIGL ; sev = RC ; code = sev
  181.     signal log_it
  182.  
  183. ERROR:
  184.     err_line = SIGL ; sev = RC ; code = sev
  185.     signal log_it
  186.  
  187. SYNTAX:
  188.     err_line = SIGL ; sev = RC ; code = sev
  189.         signal log_it
  190.  
  191. log_it:
  192. /*--------------------------------LOG-ERRORS----------------------------*/
  193. call delay(50)
  194. if ~exists('bbs:logs') then makedir('BBS:Logs')
  195. if ~exists('BBS:Logs/Errlog') then call open(err,'BBS:Logs/Errlog','W')
  196. else call open(err,'BBS:Logs/Errlog','A')
  197. call writeln(err,date() time());call writeln(err,name" - "||doorname)
  198. call writeln(err,"Line - "err_line" Code - "code" User - "username);call writeln(err,errortext(code))
  199. call writeln(err,"");call close(err)
  200.  
  201. call Exit_Door doorname,linenumber
  202. exit 0
  203.  
  204. ++++++++++++
  205.  
  206.  
  207. That should do it.  Do *NOT* rename any of the files in this archive
  208. unless you know what you are doing. 
  209. And remember that all ESC[ were replaced with ^[ for readability.  :)
  210.  
  211.            - Ed Kolar
  212.  
  213.              The Chalkboard I & II BBS
  214.              203-449-8100 USRDS  Groton, CT
  215.  
  216.          MEBBS Developer No. M3004
  217.